﻿''' <summary>
''' 闪光点
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class Flare

    ''' <summary>
    ''' 散发率[g/s]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_EmissRate As Double = 20 '散发率[g/s]
    ''' <summary>
    ''' 烟窗的海拔高度[M]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_Flarehigh As Double = 100 '烟窗的海拔高度[M]
    ''' <summary>
    ''' 热的释放率[cal/s]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_HeatRele As Double = 4300 '热的释放率[cal/s]
    ''' <summary>
    ''' 接收的海拔高度[M]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_RecepHigh As Double = 0 '接收的海拔高度[M]
    Private m_ComboxUnitOption As Integer = 0 '单位的选择默认为0
    ''' <summary>
    ''' 单位的选择默认为0
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ComboxUnitOption() As Integer
        Get
            Return m_ComboxUnitOption
        End Get
        Set(ByVal value As Integer)
            m_ComboxUnitOption = value
        End Set
    End Property


    ''' <summary>
    ''' 散发率[g/s]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property EmissRate() As Double
        Get
            Return m_EmissRate
        End Get
        Set(ByVal value As Double)
            m_EmissRate = value
        End Set
    End Property
    ''' <summary>
    ''' 烟窗的海拔高度[M]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Flarehigh() As Double
        Get
            Return m_Flarehigh
        End Get
        Set(ByVal value As Double)
            m_Flarehigh = value
        End Set
    End Property
    ''' <summary>
    ''' 热的释放率[cal/s]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property HeatRele() As Double
        Get
            Return m_HeatRele
        End Get
        Set(ByVal value As Double)
            m_HeatRele = value
        End Set
    End Property
    ''' <summary>
    ''' 接收的海拔高度[M]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property RecepHigh() As Double
        Get
            Return m_RecepHigh
        End Get
        Set(ByVal value As Double)
            m_RecepHigh = value
        End Set
    End Property
    ''' <summary>
    ''' Flare字符串的处理
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function Flare()
        Dim StrF As String = ""
        If Me.ComboxUnitOption = 1 Then
            StrF = Me.EmissRate / 3.6 & vbCrLf & Me.Flarehigh & vbCrLf & Me.HeatRele & vbCrLf & Me.RecepHigh & vbCrLf
        Else
            StrF = Me.EmissRate & vbCrLf & Me.Flarehigh & vbCrLf & Me.HeatRele & vbCrLf & Me.RecepHigh & vbCrLf
        End If
        Return StrF
    End Function
End Class
